/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / tl / char-util.elc.z / char-util.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 34 3a 35 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:58 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 74 6c 2f 63 |s-20.3/l|isp/tl/c|
|000000a0| 68 61 72 2d 75 74 69 6c | 2e 65 6c 0a 3b 3b 3b 20 |har-util|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 63 68 61 72 2d 75 74 |(error "|`char-ut|
|000001f0| 69 6c 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |il.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |))...(de|falias '|
|00000260| 72 6f 77 2d 6c 69 6e 65 | 2d 74 6f 2d 63 68 61 72 |row-line|-to-char|
|00000270| 20 23 5b 28 72 20 6c 29 | 20 22 c0 09 c2 5f 0b 5c | #[(r l)| "..._.\|
|00000280| 5c 21 87 22 20 5b 69 6e | 74 2d 63 68 61 72 20 72 |\!." [in|t-char r|
|00000290| 20 31 36 20 6c 5d 20 33 | 5d 29 0a 28 64 65 66 61 | 16 l] 3|]).(defa|
|000002a0| 6c 69 61 73 20 27 72 6f | 77 2d 6c 69 6e 65 2d 74 |lias 'ro|w-line-t|
|000002b0| 6f 2d 73 74 72 69 6e 67 | 20 23 5b 28 72 20 6c 29 |o-string| #[(r l)|
|000002c0| 20 22 c0 c1 5c 6e 0b 5c | 22 21 87 22 20 5b 63 68 | "..\n.\|"!." [ch|
|000002d0| 61 72 2d 74 6f 2d 73 74 | 72 69 6e 67 20 72 6f 77 |ar-to-st|ring row|
|000002e0| 2d 6c 69 6e 65 2d 74 6f | 2d 63 68 61 72 20 72 20 |-line-to|-char r |
|000002f0| 6c 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |l] 4]).(|defalias|
|00000300| 20 27 70 72 69 6e 74 2d | 72 6f 77 2d 6c 69 6e 65 | 'print-|row-line|
|00000310| 20 23 5b 28 72 20 6c 29 | 20 22 c0 c1 5c 6e 0b 5c | #[(r l)| "..\n.\|
|00000320| 22 21 87 22 20 5b 6d 65 | 73 73 61 67 65 20 72 6f |"!." [me|ssage ro|
|00000330| 77 2d 6c 69 6e 65 2d 74 | 6f 2d 73 74 72 69 6e 67 |w-line-t|o-string|
|00000340| 20 72 20 6c 5d 20 34 20 | 6e 69 6c 20 28 62 79 74 | r l] 4 |nil (byt|
|00000350| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ad 8f c2 c3 94 |e-code "|..!.....|
|00000360| c3 95 7b 21 c2 c4 94 c4 | 95 7b 21 44 87 22 20 5b |..{!....|.{!D." [|
|00000370| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5c 5c 28 5b |looking-|at "\\([|
|00000380| 30 2d 39 5d 2b 5c 5c 29 | 2f 5c 5c 28 5b 30 2d 39 |0-9]+\\)|/\\([0-9|
|00000390| 5d 2b 5c 5c 29 22 20 73 | 74 72 69 6e 67 2d 74 6f |]+\\)" s|tring-to|
|000003a0| 2d 6e 75 6d 62 65 72 20 | 31 20 32 5d 20 34 29 5d |-number |1 2] 4)]|
|000003b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 68 61 |).(defal|ias 'cha|
|000003c0| 72 2d 74 6f 2d 72 6f 77 | 2d 6c 69 6e 65 2d 66 6f |r-to-row|-line-fo|
|000003d0| 72 6d 20 23 5b 28 63 68 | 72 29 20 22 c0 09 21 11 |rm #[(ch|r) "..!.|
|000003e0| c2 c3 09 c4 a5 c5 09 c4 | 5c 22 23 87 22 20 5b 63 |........|\"#." [c|
|000003f0| 68 61 72 2d 69 6e 74 20 | 63 68 72 20 66 6f 72 6d |har-int |chr form|
|00000400| 61 74 20 22 25 64 2f 25 | 64 22 20 31 36 20 6d 6f |at "%d/%|d" 16 mo|
|00000410| 64 5d 20 36 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |d] 6]).(|defalias|
|00000420| 20 27 63 68 61 72 2d 74 | 6f 2d 62 79 74 65 2d 6c | 'char-t|o-byte-l|
|00000430| 69 73 74 20 23 5b 28 63 | 68 72 29 20 22 c0 c1 c2 |ist #[(c|hr) "...|
|00000440| 0b 21 5c 22 89 1c 41 ab | 8a 0c 40 c0 c5 0c 41 5c |.!\"..A.|..@...A\|
|00000450| 22 42 aa 83 c6 0c 42 29 | 87 22 20 5b 6d 61 70 63 |"B....B)|." [mapc|
|00000460| 61 72 20 69 64 65 6e 74 | 69 74 79 20 63 68 61 72 |ar ident|ity char|
|00000470| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 63 68 72 20 72 |-to-stri|ng chr r|
|00000480| 65 73 74 20 23 5b 28 62 | 79 74 65 29 20 22 c0 09 |est #[(b|yte) "..|
|00000490| c2 5c 22 87 22 20 5b 6c | 6f 67 61 6e 64 20 62 79 |.\"." [l|ogand by|
|000004a0| 74 65 20 31 32 37 5d 20 | 33 5d 20 61 73 63 69 69 |te 127] |3] ascii|
|000004b0| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|000004c0| 27 63 68 61 72 2d 74 6f | 2d 72 6f 77 2d 63 65 6c |'char-to|-row-cel|
|000004d0| 6c 2d 66 6f 72 6d 20 23 | 5b 28 63 68 72 29 20 22 |l-form #|[(chr) "|
|000004e0| c0 09 21 89 1a 47 c3 55 | ab 87 c4 5c 6e 41 40 21 |..!..G.U|...\nA@!|
|000004f0| aa 8d c5 c6 5c 6e 41 40 | c7 5a c3 5c 6e 38 c7 5a |....\nA@|.Z.\n8.Z|
|00000500| 23 29 87 22 20 5b 63 68 | 61 72 2d 74 6f 2d 62 79 |#)." [ch|ar-to-by|
|00000510| 74 65 2d 6c 69 73 74 20 | 63 68 72 20 63 6c 20 32 |te-list |chr cl 2|
|00000520| 20 63 68 61 72 2d 74 6f | 2d 72 6f 77 2d 6c 69 6e | char-to|-row-lin|
|00000530| 65 2d 66 6f 72 6d 20 66 | 6f 72 6d 61 74 20 22 25 |e-form f|ormat "%|
|00000540| 30 32 64 2d 25 30 32 64 | 22 20 33 32 5d 20 36 5d |02d-%02d|" 32] 6]|
|00000550| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 68 6f |).(defal|ias 'sho|
|00000560| 77 2d 63 68 61 72 2d 69 | 6e 66 6f 20 23 5b 28 63 |w-char-i|nfo #[(c|
|00000570| 68 61 72 29 20 22 c0 09 | 21 1a c3 c4 c5 c6 5c 6e |har) "..|!.....\n|
|00000580| 40 21 c7 c8 5c 6e 41 c9 | 23 5c 6e 47 ca 55 ab 87 |@!..\nA.|#\nG.U..|
|00000590| cb 5c 6e 41 40 21 aa 8d | c4 cc 5c 6e 41 40 cd 5a |.\nA@!..|..\nA@.Z|
|000005a0| ca 5c 6e 38 cd 5a 23 24 | 21 29 87 22 20 5b 63 68 |.\n8.Z#$|!)." [ch|
|000005b0| 61 72 2d 74 6f 2d 62 79 | 74 65 2d 6c 69 73 74 20 |ar-to-by|te-list |
|000005c0| 63 68 61 72 20 63 6c 20 | 6d 65 73 73 61 67 65 20 |char cl |message |
|000005d0| 66 6f 72 6d 61 74 20 22 | 25 73 3a 20 25 73 20 25 |format "|%s: %s %|
|000005e0| 73 22 20 63 68 61 72 73 | 65 74 2d 64 65 73 63 72 |s" chars|et-descr|
|000005f0| 69 70 74 69 6f 6e 20 6d | 61 70 63 6f 6e 63 61 74 |iption m|apconcat|
|00000600| 20 23 5b 28 62 79 74 65 | 29 20 22 c0 c1 5c 6e 5c | #[(byte|) "..\n\|
|00000610| 22 87 22 20 5b 66 6f 72 | 6d 61 74 20 22 25 30 32 |"." [for|mat "%02|
|00000620| 78 22 20 62 79 74 65 5d | 20 33 5d 20 22 22 20 32 |x" byte]| 3] "" 2|
|00000630| 20 63 68 61 72 2d 74 6f | 2d 72 6f 77 2d 6c 69 6e | char-to|-row-lin|
|00000640| 65 2d 66 6f 72 6d 20 22 | 25 30 32 64 2d 25 30 32 |e-form "|%02d-%02|
|00000650| 64 22 20 33 32 5d 20 31 | 30 20 6e 69 6c 20 28 6c |d" 32] 1|0 nil (l|
|00000660| 69 73 74 20 28 63 68 61 | 72 2d 61 66 74 65 72 20 |ist (cha|r-after |
|00000670| 28 70 6f 69 6e 74 29 29 | 29 5d 29 0a 28 70 72 6f |(point))|)]).(pro|
|00000680| 76 69 64 65 20 27 63 68 | 61 72 2d 75 74 69 6c 29 |vide 'ch|ar-util)|
|00000690| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+